home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Dev / basic / blitzgtfix.lha / BlitzGTFix / BBGTLib_Examples / gtinteger.bb2 < prev    next >
Text File  |  2002-01-27  |  816b  |  39 lines
  1. WbToScreen 3
  2. Use Screen 3
  3.  
  4. LoadFont 2,"garnet.font",9
  5. Use IntuiFont 2
  6.  
  7.  
  8. ; DONT USE COMMANDS WHICH USE A3 AS A PARAMETER DIRECTLY WITH HEX$
  9. ; COS IT GOES SCREWY
  10.  
  11.  
  12. foo.l=GTInteger(0,1,20,20,150,15,"Normal",#PLACETEXT_RIGHT,69)
  13. NPrint Hex$(foo)
  14.  
  15. foo.l=GTInteger(0,2,20,40,150,15,"Disabled",#PLACETEXT_RIGHT|$40,123)
  16. NPrint Hex$(foo)
  17.  
  18. foo.l=GTInteger(0,3,20,60,150,15,"Immediate",#PLACETEXT_RIGHT|$80,666)
  19. NPrint Hex$(foo)
  20.  
  21. AddIDCMP #INTEGERIDCMP
  22.  
  23. Window 0,0,0,400,300,$100f,"jjlk",-1,-1
  24. DefaultOutput
  25.  
  26. AttachGTList 0,0
  27. While ev.l<>#IDCMP_CLOSEWINDOW
  28.     ev.l=WaitEvent
  29.     Select ev
  30.         Case #IDCMP_GADGETDOWN
  31.             NPrint "Integer gadget ",GadgetHit," entered"
  32.         Case #IDCMP_GADGETUP
  33.             NPrint "Integer gadget ",GadgetHit," exited with code ",EventCode
  34.     End Select
  35. Wend
  36. DetachGTList 0
  37. End
  38.  
  39.